home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / egascr2.arc / EGA50.SCR < prev    next >
Encoding:
Text File  |  1986-08-05  |  737 b   |  45 lines
  1. N EGA50.COM
  2. A 100
  3. CLD    
  4. MOV    BH,03        ; 8x8 font pointer
  5. MOV    AX,1130
  6. INT    10
  7. PUSH    ES
  8. POP    DS
  9. MOV    SI,BP        ; DS:SI points to font
  10. PUSH    CS
  11. POP    ES
  12. MOV    DI,0150        ; ES:DI to destination 
  13. MOV    BX,0100        ; Number of chars
  14. MOV    CX,0007        ; Bytes per char
  15. REPZ            ; Move them
  16. MOVSB    
  17. INC    SI        ; Skip over last byte
  18. DEC    BX
  19. JNZ    0114        ; Next character
  20. MOV    BP,0150        ; Points to font
  21. MOV    DX,0000        ; Starting char
  22. MOV    CX,0100        ; Number of chars
  23. MOV    BH,07        ; Bytes per char
  24. MOV    BL,00        ; Block to load
  25. MOV    AX,1110        ; Load user font
  26. INT    10
  27. SUB    AX,AX
  28. MOV    DS,AX
  29. PUSH    [0487]        ; Fix up cursor
  30. OR    BYTE PTR [0487],01
  31. MOV    CX,0600
  32. MOV    AH,01
  33. INT    10
  34. POP    [0487]
  35. MOV    DX,03B4        ; Fix up underline
  36. MOV    AX,0614
  37. OUT    DX,AX
  38. INT    20
  39.  
  40. R CX
  41. 50
  42. W
  43. Q
  44.  
  45.